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MESA MICROCODE 
Version 34 



; Mesa.Mu - Instruction fetch and general subroutines 
; Last modified by Levin - August 1, 1978 11:27 AM 

{Completely rewritten by Roy Levin, Sept-Oct. 1977 
Modified by Johnsson; July 25, 1977 10:20 AM 
;First version assembled 5 June 1975. 
;Developed from Lampson's MESA.U of 21 March 1975. 



GLOBAL CONVENTIONS AND ASSUMPTIONS 



1) Stack representation: 

stkp«0 ■> stack is empty 
sktp B 10 ■> stack is full 

The validity checking that determines if the stack pointer is 
within this range is somewhat perfunctory. The approach taken is 
to include specific checks only where there absence would not lead 
to some catastrophic error. Hence, the stack is not checked for 
underflow, since allowing it to become negative will cause a disaster 
on the next stack dispatch. 

2) Notation: 

Instruction labels correspond to opcodes in the obvious way. Suffixes 
of A and B (capitalized) refer to alignment in memory. 'A' is intended 
to suggest the right-hand byte of a memory word; 'B' is intended to 
suggest the left-hand byte. Labels terminating in a lower-case letter 
generally name local branch points within a particular group of 
opcodes. (Exception: subroutine names.) Labels terminating in 'x' generally 
exist only to satisfy alignment requirements imposed by various dispatches 
(most commonly IR<- and B/A in instruction fetch). 

3) Tasking: 

Every effort has been made to ensure that a 'TASK' appears approximately 
every 12 instructions. Occasionally, this has not been possible, 
but (it is hoped that) violations occur only in infrequently executed 
code segments. 

4) New symbols: 

In a few cases, the definitions of the standard Alto package 
(ALTOCONSTS23.MU) have not been quite suitable to the needs of this 
microcode. Rather than change the standard package, we have defined 
new symbols (with names beginning with 'nT) that are to be used instead 
of their standard counterparts. All such definitions appear together in 
Mesab .Mu . 

5) Subroutine returns: 

Normally, subroutine returns using IDISP require one to deal with 

(the nuisance of) the dispatch caused by loading IR. Happily, however, 

no such dispatch occurs for 'msrO' and 'srl' (the relevant bits 

are 0). To cut down on alignment restrictions, some subroutines 

assume they are called with only one of two returns and can 

therefore ignore the possibility of a pending IR<- dispatch. 

Such subroutines are clearly noted in the comments. 

6) Frame pointer registers (lp and gp): 

These registers normally (i.e. except during Xfer) contain the 

addresses of local 2 and global 1, respectively. This optimizes accesses 

in such bytecodes as LL3 and SG2, which would otherwise require another cycle. 



Get definitions for ALTO and MESA 



#Mesab .mu ; 
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Location-specific Definitions 



; There is a fundamental difficulty in the selection of addresses that are known and 

; used outside the Mesa emulator. The problem arises in trying to select a single set of 

; addresses that can be used regardless of the Alto's control memory configuration. In 

; effect, this cannot be done. If an Alto has only a RAM (in addition, of course, to its 

; basic ROM, ROMO), then the problem does not arise. However, suppose the Alto has both a 

; RAM and a second ROM, R0M1. Then, when it is necessary to move from a control memory to 

; one of the other two, the choice is conditioned on (1) the memory from which the transfer 

; is occurring, and (2) bit 1 of the target address. Since we expect that, in most cases, an 

; Alto running Mesa will have the Mesa emulator in R0M1, the externally-known addresses have 

; been chosen to work in that case. They will also work, without alteration, on an Alto that 

; has no R0M1. However, if it is necessary to run Mesa on an Alto with R0M1 and it is desired 

; to use a Mesa emulator residing in the RAM (say, for debugging purposes), then the address 

; values in the RAM version must be altered. This implies changes in both the RAM code itself 

; and the Nova code that invokes the RAM (via the Nova JMPRAM instruction). Details 

; concerning the necessary changes for re-assembly appear with the definitions below. 

%1 , 1777 ,0 .nextBa; forced to location 0 to save a word in JRAM 



Emulator Entry Point Definitions 



These addresses are known by the Nova code that interfaces to the emulator and by 
RAM code executing with the Mesa emulator in R0M1 . They have been chosen so that 
both such "users" can use the same value. Precisely, this means that bit 1 (the 
400 bit) must be set in the address. In a RAM version of the Mesa emulator intended 
to execute on an Alto with a second ROM, bit 1 must be zero. 



%1, 1777, 420, Mgo; 



Normal entry to Mesa Emulator - load state 
of process specified by ACO. 



%l,1777,400,next,nextA; 



Return to 'next' to continue in current Mesa 
process after Nova or RAM execution. 



$Minterpret 



$L004400,0,0; 



Documentation refers to 'next' this way. 



%1 , 177 / , 776 , DSTrl ,Ms tope ; 



Return addresses for 'Savestate', By 
standard convention, 'Mstopc' must be at 777. 
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Linkage from Mesa emulator to ROMO 

The Mesa emulator uses a number of subroutines that reside in ROMO. In posting a 
return address, the emulator must be aware of the control memory in which it resides, 
RAM or R0M1. These return addresses must satisfy the following constraint: 
no R0M1 extant or emulator in R0M1 ■> bit 1 of address must be 1 
ROM1 extant and emulator in RAM ■> bit 1 of address must be 0 
In addition, since these addresses must be passed as data to ROMO, it is desirable 
that they be available in the Alto's constants ROM. Finally, it is desirable that 
they be chosen not to mess up too many pre-defs. It should be noted that these 
issues do not affect the destination location in ROMO, since its address remains 
fixed (even with respect to bit 1 mapping) whether the Mesa emulator is in RAM or 
ROM1. 



MUL/DIV linkage: 

An additional constraint peculiar to the MUL/DIV microcode is that the high-order 
bits of the return address be l's. Hence, the recommended values are: 
no ROM1 extant or emulator in R0M1 => MULDIVretloc « 177675B 
R0M1 extant and emulator in RAM »> MULDIVretloc « 177162B 



$ROMMUL $L004120,0,0; MUL routine address (120B) in ROMO 

$ROMDIV $L004121,0,0; DIV routine address (121B) in ROMO 

$MULDIVretloc $177675; 

; The first value in the following pre-def must be: 

; (MULDIVretloc AND 777B)+1 (yes, 'plus', not 'OR'). 

l676,2,MULDIVret,MULDIVretl; return addresses from MUL/DIV in ROMO 



BITBLT linkage: 

An additional constraint peculiar to the BITBLT microcode is that the high-order 
bits of the return address be l's. Hence, the recommended values are: 

no ROM1 extant or emulator in R0M1 =>> BITBLTret ■ 177714B 

R0M1 extant and emulator in RAM => BITBLTret = 177175B 



$ROMBITBLT $L004124 , 0 , 0 ; BITBLT routine address (124B) in ROMO 

$BITBLTret $177714; 

; The first value in the following pre-def must be: (BITBLTret AND 777B) 
1714,2,BITBLTintr , BITBLTdone ; return addresses from BITBLT in ROMO 



CYCLE linkage: 

A special constraint here is that WFretloc be odd. Recommended values are: 

no ROM1 extant or emulator in ROM1 => Fieldretloc « 452B, WFretloc » 605B 

R0M1 extant and emulator in RAM => Fieldretloc = 335B, WFretloc » 203B 



$RAMCYCX $L004022,0,0; CYCLE routine address (22B) in ROMO 

$Fieldretloc $452; RAMCYCX return to Fieldsub 

$WFretloc $605; RAMCYCX return to WF 

; The first value in the following pre-def must be the same as 'Fieldretloc' above. 

1452.1, Fieldrc; return address from RAMCYCX to Fieldsub 
; The first value in the following pre-def must be the same as 'WFretloc' above. 

1605.2, WFnzct.WFret; return address from RAMCYCX to WF 
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Instruction fetch 

State at entry: 

1) ib holds either the next instruction byte to interpret 
( right- justified) or 0 if a new word must be fetched. 

2) control enters at one of the following points: 

a) next: ib must be interpreted 

b) nextA: ib is assumed to be uninteresting and a 

new instruction word is to be fetched. 

c) nextXB: a new word is to be fetched, and interpretation 

is to begin with the odd byte. 

d) nextAdeaf: similar to 'nextA', but does not check for 

pending interrupts. 

e) nextXBdeaf: similar to 'nextXB', but does not check for 

pending interrupts. 

State at exit: 

1) ib is in an acceptable state for subsequent entry. 

2) T contains the value 1. 

3) A branch (1) is pending if ib ■ 0, meaning the next 
instruction may return to 'nextA'. (This is subsequently 
referred to as "ball 1", and code that nullifies its 
effect is labelled as "dropping ball 1".) 

4) If a branch (1) is pending, L - 0. If no branch is 
pending, L a 1. 
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Address pre-def ini tions for bytecode dispatch table. 



Table must have 2 high-order bits on for BUS branch at 'nextAni'. 

WarningI Many address inter-dependencies exist - think (at least) twice 
before re-ordering. Inserting new opcodes in previously unused slots, 
however, is safe. 



%7 


1777 


1400 , NOOP , ME , MRE , MXW , MXD , NOT I FY , BCAST , REQUEUE ; 


000 


-007 


%7 


1777 


1410 , LGO , LG1 , LG2 , LG3 , LG4 , LG5 , LG6 , LG7 ; 


010 


-017 


%7 


1777 


1420 , LGB , LGDB , SGO , SGI , SG2 , SG3 , SGB , SGDB ; 


020 


-027 


%7 


1777 


1430 , LL0 , LL1 , LL2 , LL3 , LL4 , LL5 , LL6 , LL7 ; 


030 


-037 


%7 


1777 


1440,LLB,LLDB,SL0,SL1,SL2,SL3,SL4,SL5; 


040 


-047 


%7 


1777 


1450,516,517,518,5108,110,111,112,113; 


050 


-057 


7o7 


1777 


1460, LI4, LIS, LI6.LIN1, LIB, LIW.LINB, ; 


060 


-067 


7o7 


1777 


1470 , ; 


070 


-077 


7o7 


1777 


1500.R0.R1 ,R2,R3,R4,RB,W0,W1; 


100 


-107 


%7 


1777 


1 5 10 , W2 , WB , RF , WF , RDB , RD0 , WDB , WD0 ; 


110 


-117 


7o7 


1777 


1520,RSTR,WSTR,RXLP,WXLP,RILP,RIGP,WILP,RIL0; 


120 


-127 


7o7 


1777 


1530,,,,,,,,; 


130 


-137 


%7 


1777 


1540, ,WS0,WSB,WSF, WSDB, RFC, RFS.WFS; 


140 


-147 


7 0 7 


1777 


1550 , PUSH , POP , EXCH , PUSHX ,DUP , , , ; 


150 


-157 


%7 


1777 


1560,J2,J3,J4,J5,J6,J7,J8,J9; 


160 


-167 


7o7 


1777 


1570, JB.JW, JEQ2, JEQ3, JEQ4 , 0EQ5 , JEQ6 , JEQ7; 


170 


-177 


7*7 


1777 


1600, JEQ8, JEQ9.JEQB, JNE2 , JNE3 , JNE4 , JNE5, JNE6; 


200 


-207 


7o7 


1777 


1610, JNE7, JNE8, JNE9, JNEB, JLB, JGEB, JG8, JLEB; 


210 


-217 


7o7 


1777 


1620 , JULB , JUGEB , JUGB , JULEB , JZEQB , JZNEB , JIB , JIW ; 


220 


-227 


7 0 7 


1777 


1630 , , , ; 


230 


-237 


7o7 


1777 


1640 , , , ; 


240 


-247 


%7 


1777 


1650 DESCB.OESCBS, , ; 


250 


-257 


7,7 


1777 


1660 , ADD, SUB , MUL , DBL , DIV , LDIV , NEG , INC; 


260 


-267 


7 0 7 


1777 


1670 , AND , OR , XOR , SHI FT , DADD , DSUB , DCOMP , ADD01 ; 


270 


-277 


7o7 


1777 


1700,EFC0,EFC1,EFC2,EFC3,EFC4,EFC5,EFC6,EFC7; 


300 


-307 


7a7 


1777 


1710,EFC8,EFC9,EFC10,EFC11,EFC12,EFC13,EFC14,EFC15; 


310 


-317 


7o7 


1777 


1720,EFCB,LFCl,LFC2,LFC3,LFC4 f LFC5,LFC6,LFC7; 


320 


-327 


7o7 


1777 


1730,LFC8,LFC9,LFC10,LFC11,LFC12,LFC13,LFC14,LFC15; 


330 


-337 


7o7 


1777 


1740, LFC16,LFCB,SFC, RET, LLKB, PORTO, PORTI.KFCB; 


340 


-347 


% 7 


1777 


1750, LADRB , GADRB , BLT , ALLOC , FREE , IWDC , DWDC , BLTC ; 


350 


-357 


7o7 


1777 


1760, STOP, CATCH, , , BITBLT , STARTIO , J RAM , ; 


360 


-367 


7a7 


1777 


1770 , DST , LST , LSTF , , WR , RR ,BRK , StkUf ; 


370 


-377 
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Main interpreter loop 



Enter here to interpret ib. Control passes here to process odd byte of previously 
fetched word or when preceding opcode "forgot" it should go to 'nextA'. A 'TASK' 
should appear in the instruction preceding the one that branched here. 

next: L<-0, :nextBa; (if from JRAM, switch banks) 

nextBa: SINKHb, BUS; dispatch on ib 

ib<-L, T<-0+l, BUS-0, :N00P; establish exit state 



NOOP - must be opcode 0 

control also comes here from certain jump instructions 



1 1 , 1 .nextAput; 

NOOP: L<-mpc+T, TASK, : nextAput; 
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Enter here to fetch new word and interpret even byte. A 'TASK* should appear in the 
instruction preceding the one that branched here. 



nextA: 



L<-MAR<-mpc+l, :nextAcom; 



initiate fetch 



Enter here when fetch address has been computed and left in L. A 'TASK' should 
appear in the instruction that branches here. 



nextAput: temp*-L; 

L<-MAR*-temp , : nextAcom ; 



stash to permit TASKing 



Enter here to do what 'nextA' does but without checking for interrupts 



nextAdeaf: L*-MARHnpc+l ; 

nextAdeafa: mpc*-L, BUS«0, :nextAcomx; 



Common fetch code for 'nextA' and 'nextAput' 

11,2, nextAi , nextAn i ; 
11,2, nextAini , nextAi i ; 



nextAcom: 
nextAcomx : 



mpc*-L; 

SINK«-NWW, BUS-0; 
TV177400, :nextAi; 



updated pc 

check pending interrupts 



No interrupt pending. Dispatch on even byte, store odd byte in ib, 



nextAni: L+-MD AND T, BUS, :nextAgo; 

nextAgo: ib«-L LCY 8, l>T*-0+l, :NOOP; 



L<-"B"t8, dispatch on "A" 
establish exit state 



Interrupt pending - check if enabled. 



nextAi: L*-MD; 

SINK<-wdc, BUS-0; 

T*-M.T, :nextAini; 
nextAini: SINK<-M, L<-T, BUS, rnextAgo; 



check wakeup counter 
isolate left byte 
dispatch even byte 



Interrupt pending and enabled. 

1 1,2, next XBini .nextXBii ; 

nextAii: L<-mpc-l; 

mpc*-L, L<-0, :nextXBii; 



back up mpc for Savpcinframe 
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Enter here to fetch word and interpret odd byte only (odd-destination jumps). 
U,2,nextXBi t nextXBni; 



nextXB: 



L<-MAR«-mpc+T; 

SINK<-NWW, BUS»0, :nextXBdeaf; 



check pending interrupts 



Enter here (with branch (1) pending) from Xfer to do what 'nextXB' does but without 
checking for interrupts. L has appropriate word PC. 



nextXBdeaf : 



mpc«-L, :nextXBi; 



No interrupt pending. Store odd byte in ib. 



nextXBni: L<-MD , TASK, :nextXBini; 

nextXBini: ibH. LCY 8, .-next; 



skip over even byte (TASK 
prevents L<-0, :nextBa) 



Interrupt pending - check if enabled. 



nextXBi : 



SINK<-wdc, BUS*0, :nextXBni; 



check wakeup counter 



Interrupt pending and enabled. 



nextXBii : 



ib<-L, :Intstop; 



ib - 0 for even, ~» 0 for odd 
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Subroutines 



The two most heavily used subroutines (Popsub and Getalpha) often 
share common return points. In addition, some of these return points have 
additional addressing requirements. Accordingly, the following predef ini tions 
have been rather carefully constructed to accommodate all of these requirements. 
Any alteration is fraught with peril. 

[A historical note: an attempt. to merge in the returns from FetchAB as well 
failed because more than 31D distinct return points were then required. Without 
adding new constants to the ROM, the extra returns could not be accommodated. 
However, for Popsub alone, additional returns are possible - see Xpopsub.] 



Return Points (sr0-sr!7) 



!17,20,Fieldra,SFCr , pushTB , pushTA, LLBr , LGBr ,SLBr ,SGBr, 
LADRBr , GADRBr ,RFr,Xret,INCr,RBr,WBr, Xpopret; 

; Extended Return Points (sr20-sr37) 

; Note: KFCr and EFCr must be oddl 

!17,20,XbrkBr ,KFCr , LFCr , EFCr , WSDBra , DBLr , LINBr , LDIVf . 
Dpush.Dpop.RDOr ,Spl itcomr , RXLPrb , WXLPrb , , ; 

; Returns for Xpopsub only 

1 17 , 20 .WSTRrB , WSTRrA, JRAMr , WRr , START IOr , PORTOr ,WD0r , ALLOCrx, 
FREErx,NEGr,RFSra,RFSrb,WFSra, DESCBcom, RFCr , ; 



; Extended Return Machinery (via Xret) 
!1.2,XretB,XretA; 

Xret: SINKHHSP, BUS, :XretB; 

XretB: :XbrkBr; 

XretA: SINK<-0, BUS»0, :XbrkBr; keep ball 1 in air 
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Pop subroutine: 

Entry conditions: 

Normal IR linkage 
Exit conditions: 

Stack popped into T and L 



!l,l,Popsub; shakes B/A dispatch 

l7,l,Popsuba; shakes IR<- dispatch 
H7,20,Tpop,Tpop0 t Tpopl t Tpop2,Tpop3,Tpop4,Tpop5,Tpop6 f Tpop7, 

Popsub: L<-stkp~l, BUS, TASK, :Popsuba; 

Popsuba: stkp<-L, :Tpop; old stkp > 0 



Xpop subroutine: 

Entry conditions: 

L has return number 
Exit conditions: 

Stack popped into T and L 
Invoking instruction should specify 'TASK' 



ll.l.Xpopsub; shakes B/A dispatch 

Xpopsub: saveret<-L; 

Tpop: IR«-srl7, :Popsub; returns to Xpopret 

i Note: putting Tpop here makes 

; stack underflow logic work if 

; stkp-0 



Xpopret : 



SINK*-saveret, BUS; 
: WSTRrB ; 
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Getalpha subroutine: 

Entry conditions: 

L untouched from instruction fetch 
Exit conditions: 

alpha byte in T 

branch 1 pending if return to 'nextA' desirable 
L»0 if branch 1 pending, L«l if no branch pending 



11, 2, Getalpha, GetalphaA; 

t7,l,Getalphax; 

17,l,GetalphaAx; 



Getalpha: 
Getalphax: 

GetalphaA: 
GetalphaAx: 



Getal phab : 



THb, IDISP; 

ib^-L RSH 1, L<-0, BUS-0, :Fieldra; 

U-MAR*-mpc+l; 

mpc+-L; 

T<-177400; 

L4-MD AND T, T>MD; 

K-377.T, IDISP; 

ib^-L LCY 8, L>0+1, :Fieldra; 



shake IR<- dispatch 
shake IR<- dispatch 



ib*-0, set branch 1 pending 

initiate fetch 

mask for new ib 

L: new ib, T: whole word 

T now has alpha 

return: no branch pending 



FetchAB subroutine: 

Entry conditions: none 
Exit conditions: 
T: «mpc>+l> 

ib: unchanged (caller must ensure return to 'nextA') 



drops ball 1 
shakes IR<- dispatch 
return points 

FetchAB: L«-MAR*-mpc+l , :FetchABx; 

FetchABx: mpc*-L, IDISP; 

T+-MD , :LIWr; 



U.l.FetchAB; 
17,l,FetchABx; 
17,10,LIWr,JWr ; 
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Splitalpha subroutine: 
Entry conditions: 
L: return index 

entry at Splitalpha if instruction is A-aligned, entry at 

SplitalphaB if instruction is B-aligned 
entry at Splitcomr splits byte in T (used by field instructions) 
Exit conditions: 

lefthalf: alpha[0-3] 
righthalf : alpha[4-7] 



11,2, Spl it alpha, Spl italphaB; 

ll.l.SpHtx; drop ball 1 

7ol60 ) 377,217 l Sp1it0,Sp1itl t Split2,Split3,Split4,Split5,Split6 t Split7; 
U,2,SplitoutO,Splitoutl; 



l7,10,RILPr t RIGPr,WILPr,RXLPra,WXLPra,Fieldrb, , ; 



subroutine returns 



Splitalpha: saveret*-L, L<-0+l, :Splitcom; 
SplitalphaB: saveret*-L, L<-0, BUS«0, :Splitcom; 

Splitcom: IR<-sr33, -.Getalpha; 

Splitcomr: L<-17 AND T, :Splitx; 

Splitx: righthalfH., 1>T, TASK; 

temp<-L; 

L<-temp, BUS; 

temp«-L LCY 8, SH<0, :SplitO; 



SplitO: 
Splitl: 
Split2: 
Split3: 
Split4: 
Split5: 
Split6: 
Split7: 

Spl itoutl : 

Spl itoutO : 



L*-T>0, :Spl itoutO; 
L>T<-ONE, :SplitoutO; 

L«-T<-2, :SplitoutO; 

L«-T<-3, :SplitoutO; 

L<-T*-4, :SplitoutO; 

L<-T<-5, :SplitoutO; 

L<-T<-6, : Spl itoutO; 

L<-T<-7, :SplitoutO; 

L<-10+T, : Spl itoutO; 

SINK+-saveret, BUS, TASK; 
lefthalf*-L, :RILPr; 



L*-l for Getalpha 
(keep ball 1 in air) 

T:alpha[0-7] 
L:alpha[4-7] 

L:alpha, r ighthal f : al pha[4-7] 
temp : al pha 

dispatch on alpha[l-3] 
dispatch on alpha[0] 

L,T:alpha[l-3] 



L:alpha[0-3] 

dispatch return 
lefthalf :alpha[0-3] 
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Dispatches 



Pop-into-T (and L) dispatch: 

dispatches on old stkp, so TpopO ■ 1 mod 20B. 



TpopO: L>T*-stkO, IDISP, :Tpopexit; 

Tpopl: L<-T*-stkl, IDISP, :Tpopexit; 

Tpop2: L<-T<-stk2, IDISP, :Tpopexit; 

Tpop3: L«-T<-stk3, IDISP, :Tpopexit; 

Tpop4: L*-T<-stk4, IDISP, :Tpopexit; 

Tpop5: L«-T<-stk5, IDISP, -.Tpopexit; 

Tpop6: L<-T>stk6, IDISP, :Tpopexit; 

Tpop7: L<-T«-stk7, IDISP, :Tpopexit; 

Tpopexit: :Fie1dra; to permit TASK in Popsub 
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pushMD dispatch: 

pushes memory value on stack 

The invoking instruction must load MAR and may optionally keep ball 1 
in the air by having a branch pending. That is, entry at 'pushMD* will 
cause control to pass to 'next', while entry at ' pushMDA' will cause 
control to pass to 'nextA'. 



! 3, 4, pushMD, pushMDA.StoreB.StoreA; 

U7,20,push0,pushl,push2,push3,push4,push5,push6,push7 .pushlO, 

pushMD: L*-stkp+l, IR<-stkp; (IR*- causes no branch) 

stkp*-L, T<-0+l, .-pushMDa; 

pushMDA: L«-stkp+l, IR<-stkp; (IR<- causes no branch) 

stkp<-L, T*-0, :pushMDa; 

pushMDa: SINK<-DISP , L*-T, BUS; dispatch on old stkp value 

L<-MD, SH-0, TASK, :pushO; 



Push-T dispatch: 

pushes T on stack 

The invoking instruction may optionally keep ball 1 in the air by having a 
branch pending. That is, entry at 'pushTB' will cause control to pass 
to 'next', while entry at 'pushTA' will cause control to pass to 'nextA'. 



H,2,pushTlB,pushTlA; 



keep ball 1 in air 



pushTB: 
pushTA: 



L*-stkp+l, BUS, :pushTlB; 
L<-stkp+l, BUS, ipushTIA; 



pushTIB: stkp<-L, L<-T, TASK, :pushO; 

pushTIA: stkp«-L, BUS»0, L<-T, TASK, :pushO; 



BUS-0 keeps branch pending 



push dispatch: 

strictly vanilla-flavored 

may (but need not) have branch (1) pending if return to 'nextA' is desired 

invoking instruction should specify TASK 



; Note: the following pre-def occurs here so that dpushofl can be referenced in pushlO 
117,20,dpush, t dpushl,dpush2,dpush3,dpush4,dpush5,dpush6,dpush7, dpushof 1 , dpushof 2 , , , , , ; 



pushO: stkO>L, :next; 

pushl: stkl<-L, :next; 

push2: stk2*-L, :next; 

push3: stk3<-L, :next; 

push4: stk4«-L, :next; 

push5: stk5<-L, .-next; 

push6: stk6*-L, :next; 

push7: stk7*-L, :next; 

pushlO: :dpushofl; honor TASK, stack overflow 
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Double-word push dispatch: 

picks up alpha from ib, adds it to T, then pushes <result> and 

<result+l> 
entry at 'Dpusha 1 substitutes L for ib. 
returns to 'nextA' <■> ib ■ 0 or entry at 'Dpush' 

U,2,DpA,DpB; 

14,l,Dpushx; shakes IR*-2000 dispatch 



Dpush: 

Dpusha: 

Dpushb: 



Dp A: 



L>T<-ib+T+l; 
IR+-0, :Dpushb; 
L*-T*-M+T+l; 
IRHb, :Dpushb; 
MAR<-L«-M-1; 
temp<-L, T+-0+1; 
L>stkp+T+1; 
stkp<-L; 
L<-MD, TASK; 
taskhole«-L; 
SINK<-DISP, BUS-0; 
MAR<-temp+l, :DpA; 

IR<-0, :Dpushc; 



DpB: 

Dpushc: 
Dpushx: 



IR*-2000, :Dpushc; 

L<-taskhole, :Dpushx; 
SINK<-stkp, BUS; 



dpush: 



T«-MD, :dpush; 



stkp<-stkp+2 



(IR<- causes no dispatch, 
but subsequent mACSOURCE 
will produce 0.) 
mACSOURCE will produce 1 



dispatch on new stkp 



dpushl: stkOL, L«-T, TASK, mACSOURCE, :pushl; stack cells are S-registers, 

dpush2: stkl*-L, L<-T, TASK, mACSOURCE, :push2; so mACSOURCE does not affect 

dpush3: stk2<-L, L<-T, TASK, mACSOURCE, :push3; addressing. 

dpush4: stk3<-L, L>T, TASK, mACSOURCE, :push4; 

dpush5: stk4<-L, L>T, TASK, mACSOURCE, :push5; 

dpush6: stk5<-L, L*-T, TASK, mACSOURCE, :push6; 

dpush7: stk6<-L, L<-T, TASK, mACSOURCE, :push7; 

dpushofl: T<-sStackOverf low, : KFCr ; 

dpushof2: T<-sStackOverf low, : KFCr ; 
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TOS+T dispatch: 

adds TOS to T, then initiates memory operation on result. 

used as both dispatch table and subroutine - fall-through to 'pushMD'. 

dispatches on old stkp, so MAStkTO ■ 1 mod 20B. 



117, 20 , MAS tkT, MAStkTO , MAS tkTl , MAS tkT 2, MAS tkT3 ,MAStkT4 , MAStkT5 ,MAStkT6 ,MAStkT7 , , 



t i i i • t 



MAStkTO: 
MAStkTl: 
MAStkT2: 
MAStkT3: 
MAStkT4: 
MAStkT5: 
MAStkT6: 
MAStkT7: 



MAR*-stkO+T , 
MAR«-stkl+T , 
MAR<-stk2+T, 
MAR«-stk3+T , 
MAR<-stk4+T , 
MAR«-stk5+T, 
MAR«-stk6+T , 
MAR*-stk7+T , 



:pushMD; 
:pushMD; 
-.pushMD; 
: pushMD; 
: pushMD; 
: pushMD; 
:pushMD; 
:pushMD; 



Common exit used to reset the stack pointer 

the instruction that branches here should have a 'TASK' 
Setstkp must be odd, StkOflw used by PUSH 



117,ll,Setstkp, , , , , , , , StkOflw; 
Setstkp: stkp<-L, :next; 

StkOflw: :dpushof 1; 



branch (1) may be pending 
honor TASK, dpushofl is odd 



Stack Underflow Handling 



StkUf : 



T<-sStackUnderflow, : KFCr ; 



catches dispatch of stkp « 



-1 
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Store dispatch: 

pops TOS to MD. 

called from many places. 

dispatches on old stkp, so MDpopO ■ 1 mod 20B. 

The invoking instruction must load MAR and may optionally keep ball 1 
in the air by having a branch pending. That is, entry at •StoreB' will 
cause control to pass to 'next', while entry at 'StoreA' will cause 
control to pass to 'nextA*. 



117, 20, MDpopuf , MDpopO, MDpopl,MDpop2,MDpop3,MDpop4,MDpop5,MDpop6,MDpop7, 



StoreB: 

StoreBa: 

StoreA: 



MDpopO: 
MDpopl: 
MDpop2: 
MDpop3: 
MDpop4: 
MDpop5 : 
MDpop6: 
MDpop7: 



L<-stkp-l, BUS; 

stkp<-L, TASK, :MDpopuf; 

L«-stkp-l, BUS; 

stkp<-L, BUS-0, TASK, :MDpopuf; 

MD«-stkO, :next; 

MD<-stkl, :next; 

MD<-stk2, :next; 

MD<-stk3, :next; 

MD<-stk4, :next; 

MD<-stk5, :next; 

MD<-stk6, :next; 

MD<-stk7, :next; 



keep branch (1) alive 



Double-word pop dispatch: 

picks up alpha from ib, adds it to T, then pops stack into result and 
resul t+1 

entry at 'Dpopa' substitutes L for ib. 

returns to 'nextA' <■> ib ■ 0 or entry at 'Dpop' 



I17,20,dpopuf2,dpopufl,dpopl,dpop2,dpop3,dpop4,dpop5,dpop6,dpop7, ,,,,,,; 

Il.l.Dpopb; required by placement of 

; MDpopuf only. 



Dpop: 
MDpopuf: 



Dpopa: 

Dpopb : 
dpopuf2: 



dpopuf 1: 
dpopl: 
dpop2 : 
dpop3: 
dpop4: 
dpop5 : 
dpop6: 
dpop7 : 



L<-T<-ib+T+l; 
IR<-0, :Dpopb; 



L*-T<-M+T+l; 

IRHb, :Dpopb; 

MAR<-T , temp*-L; 

L<-stkp-l, BUS; 

stkp«-L, TASK, :dpopuf2; 



Note: MDpopuf is merely a 
convenient label which leads 
to a BUS dispatch on stkp in 
the case that stkp is -1. It 
is used by the Store dispatch 
above. 



:StkUf ; 

MD<-stkl, 

MD<-stk2, 

MD<-stk3, 

MD<-stk4, 

MD<-stk5, 

MD*-stk6, 

MD<-stk7, 



: Dpopx ; 
:Dpopx; 
: Dpopx; 
: Dpopx; 
: Dpopx ; 
:Dpopx; 
:Dpopx; 



stack underflow, honor TASK 



Dpopx : 
MAStkT: 



SINK«-DISP, BUS-0; 
MAR*-temp-l t :StoreB; 
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Get operation-specific code from other files 



#Mesac.mu; 
#Mesad.mu; 



